function [] = Pareto()   
[data]=xlsread('C:\Users\hyh_5\Desktop\原始数据.xlsx',15,'A35:I42');
pareto=data(1,:);
for k=2:size(data,1)
    flag=1;m=1;    
    while m<=size(pareto,1)  
        if  isempty(find((pareto(m,(6:9))<=data(k,(6:9)))==0,1))%被支配        
            flag=0;           
        end        
        if isempty(find((pareto(m,(6:9))>=data(k,(6:9)))==0,1))%支配       
            pareto(m,:)=[];%被支配则取消           
            m=m-1;            
        end        
        m=m+1;
    end    
    if flag    
        pareto=[pareto;data(k,:)];        
    end    
end
fd=fopen('data15-2.txt','w');
for a=1:size(pareto,1)
    fprintf(fd,'\t\n');
    for b=1:size(pareto,2)
        fprintf(fd,'%f\t',pareto(a,b));
    end    
end
end

